home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / 64-MESSENGER-BBS.ARC / 64M.BBS DOWN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.6 KB  |  80 lines
  1. 1 POKE53272,23:POKE53281,0
  2. 2 PRINTCHR$(147)
  3. 3 POKE56579,32:POKE56577,0
  4. 4 POKE53280,6:PRINT"[145] 64 [205][197][211][211][197][206][199][197][210] [196][207][215][206] [158]  [215][193][201][212][201][206][199] [198][207][210] [195][193][204][204][197][210] [146]"
  5. 5 PRINT"[145]     [200][201][212] [[198]1] [212][207] [212][197][211][212] [217][207][213][210] [205][197][211][211][193][199][197][211] "
  6. 6 PRINT"     [200][201][212] [[198]3] [198][207][210] [213][211][197][210] [201][206][211][212][210][213][195][212][201][207][206][211]"
  7. 7 XX=PEEK(56577):XX=XXAND8
  8. 8 IFXX=0THENPRINT"[147]           [153] [213][211][197][210] [195][193][204][204][201][206][199] [201][206] [146]":GOTO12
  9. 9 IFPEEK(197)=4THENRUN8
  10. 10 IFPEEK(197)=5THEN39
  11. 11 GOTO7
  12. 12 FORM=1TO25:FORU=0TO15:POKE53280,U:NEXTU:NEXTM:POKE53280,5
  13. 13 OPEN5,2,3,CHR$(6)
  14. 14 DIMF%(255),T%(255)
  15. 15 FORJ=32TO64:T%(J)=J:NEXT
  16. 16 T%(13)=13:T%(20)=8:RV=18:CT=0
  17. 17 FORJ=65TO90:K=J+32:T%(J)=K:NEXT
  18. 18 FORJ=91TO95:T%(J)=J:NEXT
  19. 19 FORJ=193TO218:K=J-128:T%(J)=K:NEXT
  20. 20 T%(146)=16:T%(133)=16
  21. 21 FORJ=0TO255
  22. 22 K=T%(J)
  23. 23 IFK<>0THENF%(K)=J:F%(K+128)=J
  24. 24 NEXT
  25. 25 PRINT" "CHR$(147)
  26. 26 GET#5,A$
  27. 27 IFA$=""ORST<>0THEN31
  28. 28 PRINT" "CHR$(157);CHR$(F%(ASC(A$)));
  29. 29 IFF%(ASC(A$))=34THENPOKE212,0
  30. 30 GOTO26
  31. 31 PRINTCHR$(RV)" "CHR$(157);CHR$(146);
  32. 32 READA$
  33. 33 IFA$="^"THEN38
  34. 34 CT=CT+1
  35. 35 IFCT=8THENCT=0:RV=164-RV
  36. 36 PRINT#5,A$:PRINTA$
  37. 37 GOTO26
  38. 38 FORAA=1TO9000:NEXT:CLOSE5:RESTORE:GOTO2
  39. 39 PRINT"[147]  [212]HIS PROGRAM CAN BE USED IN PLACE"
  40. 40 PRINT"  OF THE 64 [205][197][211][211][197][206][199][197][210]."
  41. 41 PRINT"  [201]T WILL ANSWER ALL CALLS TELLING"
  42. 42 PRINT"  [217]OUR USERS THAT THE [194][194][211] IS DOWN FOR"
  43. 43 PRINT"  SYSTEM MAINTENANCE, UPDATES OR WHAT"
  44. 44 PRINT"  EVER.  [217]OU CAN RUN THIS PROGRAM WITH"
  45. 45 PRINT"  OUT YOUR DRIVES BEING ON ONCE LOADED."
  46. 46 PRINT"  [212]O USE THIS PROGRAM YOU WILL HAVE TO"
  47. 47 PRINT"  PUT YOUR MESSAGES IN [196][193][212][193] [211][212][193][212][205][197][206][212][211]"
  48. 48 PRINT"  AT THE END OF THIS PROGRAM."
  49. 49 PRINT"  [203]EEP YOUR MESSAGE WITHIN THE QUOT"
  50. 50 PRINT"  MARKS THAT ARE THERE NOW."
  51. 51 PRINT"    [208][213][212] [217][207][213][210] [196][193][212][193] IN LINES 56 TO 78"
  52. 52 PRINT"     [200]IT [210][197][212][213][210][206] TO RUN THE PROGRAM [146]"
  53. 53 GETAJ$:IFAJ$=""THEN53
  54. 54 IFAJ$<>CHR$(13)THEN53
  55. 55 IFAJ$=CHR$(13)THENRUN
  56. 56 DATA" -------------------------------------"
  57. 57 DATA" --[217][207][213][210]-[196][193][212][193]-[201][206]-[208][204][193][195][197]-[207][198]-[212][200][197][211][197]-[204][201][206][197][211]--"
  58. 58 DATA" -------------------------------------"
  59. 59 DATA" -------------------------------------"
  60. 60 DATA" -------------------------------------"
  61. 61 DATA" -------------------------------------"
  62. 62 DATA" -------------------------------------"
  63. 63 DATA" -------------------------------------"
  64. 64 DATA" -------------------------------------"
  65. 65 DATA" -------------------------------------"
  66. 66 DATA" -------------------------------------"
  67. 67 DATA" -------------------------------------"
  68. 68 DATA" -------------------------------------"
  69. 69 DATA" -------------------------------------"
  70. 70 DATA" -------------------------------------"
  71. 71 DATA" -------------------------------------"
  72. 72 DATA" -------------------------------------"
  73. 73 DATA" -------------------------------------"
  74. 74 DATA" -------------------------------------"
  75. 75 DATA" -------------------------------------"
  76. 76 DATA" -------------------------------------"
  77. 77 DATA" -------------------------------------"
  78. 78 DATA" -------------------------------------","^"
  79. 79 GOTO33
  80.